home *** CD-ROM | disk | FTP | other *** search
/ The Original Shareware 1.1 / The Original Shareware (WeMake CDs)(Volume 1.1)(CDs, Inc)(1993).iso / 16 / fpc225_3.zip / F-PCHELP.ZIP / CASE.HLP < prev    next >
Text File  |  1987-12-24  |  1KB  |  35 lines
  1. \ CASE.HLP      Case statment                           by Bob Smith
  2.  
  3.  
  4. CASE            ( -- )
  5.         Start a CASE statment, as follows:
  6.  
  7.                 CASE value1
  8.                         value2 OF  func2   ENDOF
  9.                         value3 OF  func3   ENDOF   otherwise func DROP
  10.                 ENDCASE
  11.  
  12.         Allows an arbitrary value to specify a function be performed.
  13.         If your values are sequential, the EXEC: word is much faster,
  14.         and more space efficient.  See also EXEC:
  15.  
  16.  
  17. ENDOF           ( -- )
  18.                 See CASE.
  19.  
  20. OF              ( n1 n2 -- n1 )  ( n1 n1 -- )
  21.                 See CASE.
  22.  
  23. ENDCASE         ( -- )
  24.                 See CASE.
  25.  
  26. NRESOLVE        ( 0 n1 n2 ... n -- )
  27.                 Primitive used by ENDCASE to resolve the previous case
  28.                 references.
  29.  
  30. (OF)            ( n1 n2 -- n1 )  ( or )  ( n1 n1 -- )
  31.                 Primitive case comparison word, compiled by OF. Performs
  32.                 a comparison between n1 and n2.
  33.  
  34.  
  35.